<%

Function torcida_alterar_torcidas(id_clube_down, id_clube_up, valor)
	
		torcida_alterar_torcida id_clube_down, (-1)*valor
		torcida_alterar_torcida id_clube_up, valor
		
End Function

Function torcida_alterar_torcida(id, valor)

		str = "SELECT torcida from clubes where id="&id
		Set rs = conexao_geral.Execute(str)	

		str = "UPDATE clubes SET "
		str = str & "torcida='"&(rs("torcida")+valor)&"' "
		str = str & " WHERE id="&id
		Set rsI = conexao_geral.Execute(str)
		
End Function

%>